البرمجة المرئية با ستخدام(ع۷8.N)‏ 


تھا ران 
(EXER CZ SE)‏ 


ن( 
را 9ج 
الكر هة ال ري اتف ةدام 


(VB, XET) 


زح رزو رسد 
صم حبرا میں ززب رې 
سر فار 


ئن زان : 
رم و زر بلعارق. 
DI‏ وو انر مه واد ززوي. 


اعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحث اشراف: (1 ( د أاحمد بلحارث. (2) والأستادة القديرة: دعاعء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


E7 
Lebel1 


eS aê mt TextBox1 


Lebel2 


txtlastname TextBOoOXx2 


ل ا 
Text‏ | 


Public Class Forml 


Private Sub btntbdil_Click (ByVal sedgF As System.Object, ByVal e As 
System.EventArgs) Handles btntbdil dM ck 
Dim namel, namez As Strz/g 
namel = txtfirstname. Ez 
name2 = txtlastname „î a4 
txtfirstname. Text £ gAEmez 
tLxtlastname. Text 3A amel 
End. Sub 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


الجر غا مج الخافى 


۰ 


Red)‏ آسة ھا 


pean T7 a= 
ال ا ب ا لا‎ 1 | x< 


الخاد اواب الجدد لاف 


۴ | ۴ ال ا ETSY‏ بان 


الاد اواب I‏ الجدد لشاف I‏ 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


اس3 | الخاصية سما | الخاصي 


| Text 


ng e __ Button2 العدد الأول‎ Text Label1 


د 
Text Label2‏ لعدد الثالي BtnMultip Name ` Button3‏ 
TeX‏ | * 1 


BtnDivition Name ) Button4 Text Label3 
a ai E 


Btn Mod Button5 o. xinum1 Textbox1 
ت‎ 


` Binpower Name ` Button6 Txtnum2 Textbox2 
A Tet 
BtnDivition2 Name ` Button7 E 


a E 


Btnback Button9g 
و‎ 


PUDLILIG CLASS FOEMS 
MMW aA; DBD; € AS DoLbLe 
Private Sub btndRNtLl1oNd lick (ByVal sender As System.Object, 
ByVal e As System.EvgndRsgs)\Mandles btndivitlion.Click 
a = Val (txznadMmıl . Ex z9 
b = Val (Ad um2.Text) 


SS = 4 ا کر‎ 
Lxtre6gdNM.Text = CStr (8S) 
End Sub 


Pri¥at€ Sub btnadd_ Click (ByVal sender As System.Object, ByVal e 
As SystelM.EventArgs) Handles btnadd.Click 
a = Val (txtnuml. Text) 
SS = Val (tCXLCNUMZ «. TEE) 


S = a + 
LXLILECESULLE LICKEL = CSCC LS} 
End ub 


Private Sub Bbltnisubtrac CIICK (BYVal sender As System.Object; BYVaL 
e As System.EventArgs) Handles btnsubtrac.Click 
a = Val (txtnuml. Text) 
OG: = VA L{EXCEHUMAZ LEE] 


S = a —- 
EXLEEeESULE. TexLE = CSEE (8S) 
ENQd Sub 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N()‏ 


Private Sub btnmultip_Click (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnmultip.Click 
qa = Val (EXİLNUüUML. TeExXE) 
GG = VEL (CELEHUNZ LIOR) 


gS û * Bb 
CELLOS ULL LIT =2 US TCT 
EfQd Sub 


Private Sub btnmod_Click (ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles btnmod.Click 
ã => Val (EXÈNnunl . Text) 
5 Val (txtnumzZz . Text ) 
8 = & Mod 6 
ECALCEESULECLIERE = CSE) 
ENO Sub 


; BYVAL € 


Private Sub btnpower_Click (ByVal sender As Sy 

As System.EventArgs) Handles btnpower.Click 
a = Val (EXÙNUüUML. TeExXE) 
GG = Val{(CEENUMZ. LER) 


em. O 


S = a ^ 
EXIFESULE. TEK = CSCS) 
ENQA SUB 


Private SUD DENOIVLIELONZ TCLEILCEK (BYVAL 
ByVal e As System.EventArgs) Handles b 
a = Val (EXEHNUML. TSKEÊ) 

GG = VaL(EXRERUMZ. LeRE) 


gE =A (i bB 
ERECT LE. LORE = COLES 
End Sub 


Private Sub btnclea 

As System.EventArgs) 
EXRENOMLs TEXTE 
EXENUMZLEE 


(ByVal sender As System.Object, ByVal e 
ptnclear.Click 


utton9_Click (ByVal sender As System.Object, ByVal e 
AFGS) BaNQLé6S BUlLLONILCLLEK 


Private 
AS SYSTEM. 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1) د.أحمد بلحارث. (2) والاستادة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


اتسر غا مج لخا جت 
(إهراج مجموع ومعدل إخواد 


مجموع ومعدل المواد ٠”‏ 


صوادت ذزاسية للقصل التاتيي الصسستوك التاتجي جاسوب 


صسجصارية جانوب 


5ذ۴ 


إعداد الطالب:صقرعبدالله حسين الزيدي | قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1غ۷8.N)‏ 


__ Txtinum3 | _ Name 7exibox3 _ بيك‎ لوجıêزi__‎ Text | Label 
__ Txtnum4 | Name 7exibox4 _ تliıب‎ Jly Text | Label2 
__ Trinum5 | Name Textbox _ hse | Text Label 
_ TxtinumG_ | Name Textbox6 SPSS Text | _ Label4 
___ Txtnum7 | _ Name 7exiboxx7 | ıl lêê Text | Label5 


__ Txinumê Name __Textboxê Labelê 
Txtresult __ Name | Textbox9 Label7 
_ Binsum 


| Name  Button1 معمارية‎ Text Label8 
کن لەجموع‎ 


BtnAvirage | Name Button2 النتيجة‎ Text Label9 
BtnClear | Name  Button3  Txtnum1 Textbox1 


acncnsnanansenanenrsx: |__ Name Button? | TRinum2 Texibox2 


Public Class # g4 
DINA Oar, Uy, FE, EE Wy, E. E.E Dounle 
Priva af§bub Button4_Click (ByVal sender As System.Object, ByVal e 
As SysteénmgFventArgs) Handles Button4.Click 
GG .Hide () 
§orm2. Show () 
Im dub 
pn mgatlte Sub Button1_Click (ByVal sender As System.Object, ByVal e 
As Systh.EventArgs) Handles btnsum.Click 


a SS VaAL(EXENuUmML. TExXE) 
=  VELLEKENUMZ.LESL) 
CG = VEL EXTRMSL LEEK) 
Û = Val (tXTNUMZA. Text) 
FT & VEL(CRENUMISLORL) 
2 = Val (EXENUMO. TEKE) 
W = Val (txtnum’ti. Text ) 
vy =  VELITELCHUMSTESE) 
BS OE BEC FO COT gڇ‎ ETE EY E 


LEREFEFESULEL TESTE =2 USEFI) 
End Sub 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N()‏ 


Private Sub btnaverage_Click (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles btnaverage.Click 
= ‘Val (EKENUML. TEx) 


VEL (CXEHUMZ. LEKE‏ ك 
VAL (EXENUMS Tex‏ = 
Val (txtnum4. Text‏ = 


( ) 
( ) 
( ) 

= Val (EXENUMS «. TEKE) 
( ) 
( ) 
( 


= Val (ESEBUMOo LELE 
= Val (txtnum/. Text 
= VAL (EXEMMS TERE) 


GE E ND EBE CO O O 


= ((a+b+c+d+r+z+wW + YY) / 8) 
txtresult. Text = CStr (5s) 
EQ. - SUD 
Private Sub btnclear_Click (ByVal sender As System. Ob] ByVal e 
As System.EventArgs) Handles btnclear.Click 
EXENOMLLOSRT 
ËEXÈEDNUMZ . TEx 8 
LS AWR E O 
ERENOMALTORT SS 
CET MISA LOSL GG 
ERENUMO: LIOR = WT 
ERENUDMIa LOL & 
LECH. LOT a WT 
ERELESULE. TEK — 
End SUD 


End CLaãsS 


اعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1) د.أحمد بلحارث. (2) والاستادة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


الجر نا مج اربق 
«كيغية التها مل مح الكيجورد) 


ax‏ التعامل مح الكيبورد 


سمه [عوة ی لست 


الصا ابرا صج حاب سيط بين ية اتا حل جج ااجحدت 

EE TLL 

وحص بط االجدت علج تك جا ا خط حلج اون اة ذا ص ا شض رور 
علج جد صفاتیج الو جف ارقا ص 

صن 7-١‏ عير علج الاعات لک 


۷ وبعد الضغط على الرقم(7) من الكيبورد ظهرت 
سبحان الله العظيم) 
×| ا التعامل مع الكبور 


سهان اله و بحدده سبحان الله العم 


سمة _] (عودة ى اسه 


والحدث في مكان كتابة الشيفرة هو (٣سهلىرم))أي‏ أنه عند ضغط الزر يظهر 
ا 


۷ وهناك حدث آخر وهو(مںلم)) أي آنه يظهر النص عند رفع يدك من على الزر. 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1) د.أحمد بلحارث. (2) والاستادة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


س اتخصية ˆ ية ٠‏ 
ج 
Label1‏ ا 
Name‏ 


E 


Button1 


O O CS 


E‏ إإإ ي 


PUbDLIC CLASS FOFMS 


Private Sub Button2_KeyDown (ByVaRRîtendeN™Ms Ob jJêšt, ByVal e As 
System.Windows.Forms.KeyEventArgs) HandN®s Blltonz24R€yDown 
If e.KeyCode = Keys.NumPadl Them 


LabDell; Te = Taza NaS, YY all ¥$ O" 
Elself e.KeyCode = Keys.NumBéad#Y Then 

Label1.Text = "سودقلنlا "الله لا إله إلا مو لطر‎ 
Elself e.KeyCode = Keys JAufFPad3 Then 

"الله لا إله إلا هو ذو الجلال اض I|حç"‏ = Label1. Text‏ 
Elself e.KeyCode = Kf NumPad4 Then‏ 

"اله ل اله إل هو امتي راا رز = Labêll. Tê%t‏ 
Elself e.KeyCode™ fFeys.NumPadS5 Then‏ 

"اله لا إله إلا هو السلام المؤمن المهنيwmQ‘'‏ = Labe11. Î‏ 
Elself e.KeyyG6g +> NRs.NumPadé6 Then‏ 

Label1 71 gag =<" "اله لا إله إلا هو القابيبض الاك‎ 
Elself e AaflCode = Keys.NumPad/ Then 

Lab4 4. 1cex) = "الله لا إله إلا هو ربالعرش الكرء"‎ 
HElsel# 4F KeyCode = Keys.NumPadS Then 

"ا ل اله إ۷ هو رنه العرق العظقدة*" = ]×16 1ا1 
EJs! c.KeyCode = Keys.NumPad9 Then‏ 

Lbêll «Tat = Tov الول‎ a ا ل‎ VF 
gd If 


Bfivate Sub Buttonl_Click (ByVal sender As System.Object, ByVal e 
As*syélem.EventArgs) Handles Button1l.Clilick 
WMe.Hide () 
FOEMZA. SOON) 
End Sub 
Private Sub Button3_Click (ByVal sender As System.Object, ByVal e 
Aa. SyVStem.EventArgs) Handles BUttOnNnS.CLICK 
Me.Hide () 
FOE SHOW C) 
End SUD 
ENG OLS 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
نحت اشراف: (1 ( د احمد بلحارث. (2) والأستادة القديرة: دعاعء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


الجر فا مج الجا 
(ASCII CODE)‏ 


۷ ملاهظة:ررهيث عند ها يقم الضخط على أي زر من الكيبورد تظهر قيمته في اخستطيل 


إالاصض 
۷ اك کي )) 
× ا A4SCII CODE‏ 


| ا1ا 


ka o so iS ASC CODE‏ لر وو 


4SCEII CODE 


و 
rass apy Kay io sho 5f ASCII CODE‏ 


۷ يتضح أن ال(۸)قیمته ب(۴ C05‏ 1۱ا۸8 )هي د چ 


= ASCII CODE 


BEES 


2 


a7 Ka o sow o ASCIT COOFE‏ جج 


ویتضح أيظاً أن ال()قیمته ب( C05٤‏ اا ٥؟AS)‏ همي (82). 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1) د.أحمد بلحارث. (2) والاستادة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1٤۷8.N)‏ 


aoe a 
ASCII COBÊ 
| fxtkey Textbox1 


Press any key to show MME Label1 
o. ASCII CODE 


Button1 


E 


PUBLICS Class FOEMT 
Private Sub Button1l_Cli1ick (ByVal sender As SysléêrşOolt j€€L, ByVal e 
As System.EventArgs) Handles Buttonl1l.Cllick 
Me.Hide () 
FOZ. SHOW) 
End Sub 
Private Sub txtkey_KeyPress (ByVa NRSêndeNAs ObJjêét, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handlé€es tx€key.KeyPress 
txtkey. Text = Asc(e.KeyChar. To h9) 
End Sub 


End Class 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
نحت اشراف: (1 ( د احمد بلحارث. (2) والأستادة القديرة: دعاعء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


الجر غا مج الاك نس 
(قعغادیق اد فال 


ااا 


Enter the First number 


EI SE 


Enter the third number 


×[ ۔|صتادیق ارال 


إعداد الطالب:صقر عبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


e 


الأداة الخاصبة القيمة 
Border Stay | Lapel‏ _ | 


ee | ee Textbox2 
_ btnclear Name | Button1 


ButtOn2 


Public Class Forms 


Private Sub Form8_Load(ByVal seRdQder BNEystem gject, ByVal e As 
System.EventArgs) Handles MyBase.LoaQd 
Dim valuel As Integer 
Dim value2 As Integer 
Dim value3 As Integer 
Dim sum As Integer 


vValuél = VSL (IDBULBEOX ("ENDE he TIFSL. hümber",y, "vValüêl"}) 
value2 = Val (InputBox ("Migr Lhe second number", "value2") ) 
value3 = Val (InputBox WuCer the third number", "value3") ) 
Sum = valuel + valu AF value3 
LxLsum. TexlL = sum 

End Sub 


Private Sub Buttznd9gl 1A ByVal sender As System.Object, ByVal e 
As System.EventArggy) 4Wandle dfEuttonl.Click 
Me.Hide () 
Forn2. SF a7 ) 
ENG: SUD 


ENO CLASS 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحت إشراف: (1 ) د.أحمد بلحارث. (2) والأستاذة القديرة: دعاء سالم وادي 


البرمجة المرئية با ستخدام(1غ۷8.N)‏ 


(1) خصائص ال( ۸ ۴0). 
(1)Start position.‏ 
هذه الخاصية لها عدة أساليب أو عدة أشياء ومن هذه الأشياء هنالك أسلوب لجعل 
ال(٣۲١۴)وسط‏ الشاشة وذلك بعد تنفيذ البرنامج وهذا الأسلوب أو الإختيار هو 
.(Center Screen)‏ 


(2)Form border style. 
وهذه الخاصيایعمل علی‌ بات أو تقیید مقابض ال(۲۳٥۴)وهذا الشيئ لا تدركه إلا بعد تنفيذ‎ 
البرنامج.‎ 
(3)Back color. 
وهذه الخاصية تساعدك قي )تغيير لون خلفية ال(٣١٠۴)فعند النقر على هذه الخاصية تظهر‎ 
لنا ثلاثة تبويبات أو خيارهات وفيها جال كثيرة من التعبئة فيتاح لك المجال في إختيار التبويب‎ 
((System-\Vêbط-Cls1ئټ)))‎ : المناسب من الأتي‎ 
(4)For color. 
وهذه الخاصية تستخدم لتغيير لون الخط امكل عام.‎ 


(5)Cursore. 
وهذه الخاصية تعمل على تغيير مؤشر الفارة ويظهررشكل مؤشر الفارة الجديد بعد تنفيذ‎ 


البرنامج ب(۴5) . 
(6)Right to left.‏ 
وهذه الخاصية تعمل على إنتقال إسم ال(٣۲١٠۴)من‏ الييتار إلالتمين والعکس 
فعند إختيار (5٥۷)ينتقل‏ إسم ال(۳ ۴٠١‏ )إلى اليمين وو عنم إخټيار(٥۸)ينتقل‏ إسم 
ال( ۲٥۴)إلی‏ الشمال. 
(7)Back groafd image.‏ 
وهذه خاصية تساعدنا في إستدعاء أي صورة من ملف وجعلها خلفية للفو م'فعند النقر على 
هذه الخاصية تظهر لنا نافذة فيها خيارين وهما. 
(الأول ۲٠501۲٥۴‏ ا0ج 1ا)وهذا نستخدمه لجلب صورة واحدة فقط. 
(أما الخيار الثاني ٥اا ce‏ uمءم؟‏ اءمزه۴)فهذا نستخدمه لتكوين ملف من الصور. 
وناتي بالصورة من خلال الخیار (0۲۲م"|). 
(8})Bagk ground image layout.‏ 
عند النقر على هذه الخاصية تظهر لنا خمسة خيارات فإليك هذه الخمسة الخيارات مع 
إاستخداماتها: 
N0٥٣٥ )1(‏ :هذا الخيار الإفتراضي. 
1٥ )2(‏ :يعمل تجانب للصورة. 
٥٥۸16۲)3(‏ :يجعل الصورة في الوسط. 
Src )4(‏ :يجعل الصورة ممتدة. 
(5) 200۳ :يجعل الصورة بشكلها الكامل داخل الفورم. 
م ملاحظه : الخاصية رقم(8)مرتبطة إرتباطآً وثيقآ بالخاصية رقم(7)لأن الخاصية 
رقم(8)تعتبر تنسيق للصورة التي نجلبها من الخاصية رقم(7). 


إعداد الطالب:صقرعبدالله حسين الزيدي / قسم الحاسوب / المستوى الثاني 
تحث اشراف: (1 ( د احمد بلحارث. (2) والأستادة القديرة: دعاعء سالم وادي 


البرمجة المرئية با ستخدام(۲٤۷8.N)‏ 


(2) خصائص ال(۸ 0۲۲0 )8B‏ 


(1)Locked. 
وهي خاصیة تستخدم لتأمین زر ال(۸٥]اں‌8 )أي أنه لا یصغر ولا یکبر۔‎ 
(2)Font. 
وهذه خاصية تنسيق الخط الذي یوجد داخل زر ال(١ ٥ں 8 )بشكل أوسع مثل (الحجم نوع‎ 
الخط › تسطيرمائل › عريض)» وغير ذلك ا‎ 
(3)For color. 
.۔)۵مںu†)٥۸(لا وهي خاصیة تیتخدم لتغییر لون الخط داخل زر‎ 


(4)Enabled. 
وھذہ الخاصیة تحدد ما گان زر ال(٣٥]اں 8 )یعمل أو لایعمل › فإذا كانت ھذہ‎ 
الخاصية( ع ں۲ )فان الزلسوف يع دة[ |ذ| كانت الخاصية(عء|اه۴)فإن الزر لا يعمل. وتكمن‎ 
رؤية ذلك بعد تنفيذ البؤنامج.‎ 


(5)Cursor. 
وهذه الخاصية تعمل على تغيير مؤشر الفارة كفدما نشير بالفارة فوق زر‎ 
ا8 )وليس على الفورم » وهذه الخاطهة لا تعمل إلا بعد تنفيذ البرنامج..‎ ا0١(لا‎ 


(6)Anchor. 
› وهذه الخاصية تعمل على تحریك زر ال( ل ٥٤ا ں ع)إل|گل الإتجاهات(فوق » تحت › يمين‎ 
شمال)ودلك بعد تنفيد البرنامج نضغط على زر تكبير القوارم انز التغيير..‎ 


(7)Dock. 
)او شبيهه بها ولکن تتحكم ى تجاه زر‎ ۸۸٥۸ وهذه الخاصية تعمل عمل الخاصیۂ(0۲‎ 
ال(۸ ٥ں 8 )في اقصى يمين الفورم وأاقصى شمال الفورم › واقصى اسفل الف رر واقصی‎ 
۸٠ )۸١cء!1٥١(هيصاخلا اعلى الفورم ..وهده الخاصيه تعمل قبل تنفيد البرنامج بعكس‎ 


()Ba€k color. 
م)..‎ u٥ وهذه الخاصية تعمل على تغيير لون خلفية زر ال(۸‎ 


اهمد لله والهلاة والسلا ي فى رسول الد 


تاو 1O : a‏ /90 /2010@ $ | ھی 
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